﻿Imports System.Data.OracleClient
Imports System.IO
Imports System.Collections.Generic
Imports System.Web.Security
Imports System.Data

Public Class BSCSCampaignDefinitionPage
    'Inherits System.Web.UI.Page
    Inherits [lib].BasePage

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.PageTitle = "BSCS Kampanya Tanımlama"
        Session("_BSCSCampaignDefinitionPage") = Nothing
        If (Not Me.IsPostBack) Then
            Table2.Visible = False
        End If

    End Sub

    Protected Sub ddlOperationType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlOperationType.SelectedIndexChanged
        Table2.Visible = ddlOperationType.SelectedValue.Equals("tariffdefinition")
    End Sub

    Protected Sub btnSegment_Click(sender As Object, e As EventArgs) Handles btnSegment.Click
        Dim url As String = "BSCSCampaignSegmentPage.aspx"
        Dim newWin As String = "window.open('" & url + "', 'popup_window', 'left=100,top=100,resizable=yes,scrollbars=yes');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", newWin, True)
    End Sub

    Protected Sub btnPrice_Click(sender As Object, e As EventArgs) Handles btnPrice.Click
        Dim url As String = "BSCSCampaignFeePage.aspx"
        Dim newWin As String = "window.open('" & url + "', 'popup_window', 'left=100,top=100,resizable=yes,scrollbars=yes');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", newWin, True)
    End Sub

    Protected Sub btnSms_Click(sender As Object, e As EventArgs) Handles btnSms.Click
        Dim url As String = "BSCSCampaignSMSPage.aspx"
        Dim newWin As String = "window.open('" & url + "', 'popup_window', 'left=100,top=100,resizable=yes,scrollbars=yes');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", newWin, True)
    End Sub

    Protected Sub btnReport_Click(sender As Object, e As EventArgs) Handles btnReport.Click
        Dim url As String = "BSCSCampaignReportPage.aspx"
        Dim newWin As String = "window.open('" & url + "', 'popup_window', 'left=100,top=100,resizable=yes,scrollbars=yes');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", newWin, True)
    End Sub

    Protected Sub btnOtherDetails_Click(sender As Object, e As EventArgs) Handles btnOtherDetails.Click
        Dim url As String = "BSCSCampaignOtherDetailsPage.aspx"
        Dim newWin As String = "window.open('" & url + "', 'popup_window', 'left=100,top=100,resizable=yes,scrollbars=yes');"
        ClientScript.RegisterStartupScript(Me.GetType(), "script", newWin, True)
    End Sub
End Class